home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / dbase / scion409.lha / Scion409 / Install < prev    next >
Text File  |  1995-10-05  |  51KB  |  1,360 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;;
  3. ;;; Install Scion Genealogist Version 4
  4. ;;;
  5. ;;; $VER: Install_Scion 1.03 (3 Sep 1995)
  6. ;;;
  7. ;;; This is the installation script for Scion Genealogist version 4.
  8. ;;;
  9. ;;; Copyright © 1993-1995 Robbie J Akins, Wellington, New Zealand.
  10. ;;; All Rights Reserved
  11. ;;; v1.00: Original version, first official release, by Robbie J Akins
  12. ;;; v1.01: `Nederlands' language strings added by Freddy Ariës
  13. ;;; v1.02: `Deutsch' language strings added by Freddy Ariës
  14. ;;; v1.03: Updated for additional Swedish and Finnish options.
  15. ;;;        Program debugged and released as Scion V4.09. Robbie Akins
  16. ;;;
  17. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  18. (set TESTING 0) ; 1 = test mode (relatively safe, 0 = distribution mode
  19.  
  20. (if (= TESTING 1)
  21.     (user 2))    ; Force "expert" mode regardless of installer defaults. Naughty!
  22.  
  23. (set @user-level 2) ; "Expert" mode preferred
  24.  
  25. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  26. ;;;
  27. ;;; Initialize variables
  28. ;;;
  29. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  30. ;
  31. (set ProgramName    "Scion Genealogist")        ; programme name
  32. (set ProgramBaseName    "Scion")            ; programme base name
  33. (set VersionNum        "4.09")                ; programme version number
  34.  
  35. (set PrefsName        "Scion Preferences")        ; preferences programme name
  36. (set PrefsBaseName    "ScionPrefs")            ; preferences programme base name
  37. (set PrefsVersionNum    "1.06")                ; preferences programme version number
  38.  
  39. (set ArchiveName    "ScionSupport.lha")        ; archive name
  40. (set ArchiveLocn    "")                ; archive location
  41. (set ScionArchive (tackon ArchiveLocn ArchiveName))
  42.  
  43. (set ArexxArchiveName    "ScionArexx.lha")        ; archive name
  44. (set ArexxArchiveLocn    "")                ; archive location
  45. (set ArexxArchive (tackon ArexxArchiveLocn ArexxArchiveName))
  46.  
  47. (set InstallScion    0)        ; 1 = install, 0 = don't install
  48. (set InstallPrefs    0)        ; 1 = install, 0 = don't install
  49. (set InstallArexx    0)        ; 1 = install, 0 = don't install
  50. (set InstallOnlineHelp    0)        ; 1 = install, 0 = don't install
  51. (set InstallExample    0)        ; 1 = install, 0 = don't install
  52. (set InstallReadMe    0)        ; 1 = install, 0 = don't install
  53. (set InstallScionCats    0)        ; 1 = install, 0 = don't install
  54. (set InstallPrefsCats    0)        ; 1 = install, 0 = don't install
  55.  
  56. (set InstallEnglish    0)        ; 1 = install, 0 = don't install
  57. (set InstallDutch    0)        ; 1 = install, 0 = don't install
  58. (set InstallGerman    0)        ; 1 = install, 0 = don't install
  59. (set InstallNorwegian    0)        ; 1 = install, 0 = don't install
  60. (set InstallItalian    0)        ; 1 = install, 0 = don't install
  61. (set InstallSwedish    0)        ; 1 = install, 0 = don't install
  62. (set InstallFinnish    0)        ; 1 = install, 0 = don't install
  63. (set InstallFrench    0)        ; 1 = install, 0 = don't install
  64. (set Localised        0)        ; 1 = localised, 0 = only english
  65.  
  66. ; Set whether wish to confirm lha extraction was okay
  67. (set xconfirmCopy    0)            ; 1 = don't confirm, 0 = confirm
  68. (set delscionarchive 0)            ; 1 = delete archive, 0 = don't
  69. (set delarexxarchive 0)            ; 1 = delete archive, 0 = don't
  70.  
  71. ;
  72. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  73. ;;;
  74. ;;; English and foreign language messages and "variables"
  75. ;;;
  76. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  77. ;
  78. ; NOTE: The next three variables must appear before the rest of the strings
  79. (set #ArexxScripts    "ARexx Scripts")
  80. (set #OnLineHelp    "On-line Help")
  81. (set #Example        "Example Database")
  82. (set #CatFiles        "Language Support Files")
  83. (set #ReadmeFiles    "Documentation Files")
  84.  
  85. (set #copyingscion    "Copying the Scion archive to RAM:...")
  86. (set #copyingarexx    "Copying the ARexx archive to RAM:...")
  87. (set #copy_err1        "An error occurred during the copying of %s")
  88. (set #err_msg (cat    "\n\n"
  89.             "Press the Proceed button to stop the installation procedure.\n"))
  90. (set #install_msg (cat "\n\nScion Genealogist installation script.\n\n"
  91.             "This script installs Scion Genealogist\n"
  92.             (" Version %s on your Amiga, " VersionNum)
  93.             "along with associated support files.\n\n"
  94.             "Scion Genealogist © 1993-1995 Robbie Akins\n"
  95.             "All rights reserved."))
  96.  
  97. (set #dirselect        "Please select the directory where you want to install %s.")
  98. (set #prevselect (cat    "Please chose the location where %s is currently located "
  99.             "so that %s can be installed in the correct location."))
  100. (set #setDirPathHelp (cat "This part of the installation is asking you where you "
  101.             "would like to place %s.\n\nFor current %s owners, you "
  102.             "should select the directory that is the current location "
  103.             "of %s. If you choose a different location, then the "
  104.             "current (existing) module(s) will be in a different "
  105.             "place than the newly-installed module(s).\n"))
  106.  
  107. (set #setPrevLocHelp (cat "This part of the installation is asking you where "
  108.             "to place %s.\n\nFor current %s owners, you must "
  109.             "select the directory that is the current location "
  110.             "of %s. If you choose a different location, then the "
  111.             "%s will not be installed in the correct place and "
  112.             "hence will not be available.\n\nYou CAN install "
  113.             "%s before installing %s, but you must select the "
  114.             "directory where you eventually intend to install %s.\n"))
  115. (set #setPrevLocHelp (#setPrevLocHelp #OnLineHelp ProgramName ProgramName #OnLineHelp #OnLineHelp ProgramName ProgramName))
  116. (set #pathhelpextra (cat "\n"
  117.             "NOTE: If you are using the Installer program's "
  118.             "function to create a new directory (using \"Make New Drawer...\"), "
  119.             "it is highly recommended that you DO NOT include "
  120.             "spaces in the drawer name.  Following this advice "
  121.             "will avoid any problems accessing the directory, "
  122.             "especially from ARexx scripts.\n"
  123.             "\n"
  124.             @askdir-help))
  125. (set #installing "Installing...")
  126.  
  127. (set #lha_error1     "Error decompressing %s from %s into the %s directory.\n")
  128. (set #lha_error2 (cat    "\n"
  129.             "Be sure that the directory you have specified as the "
  130.             "destination exists and has enough free space in it "
  131.             "to accept new files. Also be sure that if the file to "
  132.             "be copied already exists, that the existing file "
  133.             "isn't protected from being overwritten or deleted."))
  134. (set #ver_err1        ("\%s version %s requires at least AmigaOS 2.04 to run." ProgramName VersionNum))
  135. (set #installoptions (cat ("Select the parts of the %s package you want to install " ProgramName)
  136.             "at this time."))
  137. (set #installopthelp (cat "This part of the installation procedure lets you select the "
  138.             "parts of the distribution you want to install at this time.\n"
  139.             "\n"
  140.             @askoptions-help))
  141. (set #languageoptions (cat "Select those languages that you want to install at this time.\n\n"
  142.             "NOTE: Not all languages are fully supported."))
  143. (set #languageopthelp (cat "This part of the installation procedure lets you select the "
  144.             "languages that you want to install at this time.\n\n"
  145.             "Not all languages are fully supported, so even if you "
  146.             "select a particular language, on-line help and/or "
  147.             "'localization' may not actually be available at this "
  148.             "time. If you would like to help with a translation, "
  149.             "please contact the author.\n\n"
  150.             @askoptions-help))
  151. (set #libcopy         "Copying %s to %s")
  152. (set #copyLibFileHelp (cat "If you already have a copy of this library in the "
  153.             "selected destination directory, the library included "
  154.             "on the distribution disk will be compared to the one "
  155.             "you already have. If your current library is an old "
  156.             "version, the newer version will be installed.\n\n"
  157.             @copylib-help))
  158. (set #makedir         "The directory that has been specified does not exist and is about to be created.")
  159. (set #nolocale        "\n\n\nYour computer does not have support for languages other than English, and so only the English version of the distribution will be installed.")
  160. (set #fontprompt (cat    "\n\nDo you want to install \"sciongen.font\"?\n\nIt is not "
  161.             "required, but makes the user-interfaces look better!"))
  162. (set #fonthelp1 (cat    "\"sciongen.font\" is not required for %s to function, "
  163.             "however, it makes the user-interface look a lot better "
  164.             "if you do decide to install it."))
  165. (set #fonthelp        (#fonthelp1 programname))
  166. (set #oldscionprompt (cat "\n\nYou currently have version %ld.%s of %s installed "
  167.                         "in the directory you have selected. Do you want to "
  168.             "replace it with version %s?"))
  169. (set #oldscionhelp (cat "The directory that you have selected already has a "
  170.                         "copy of %s installed. If you wish to overwrite this "
  171.             "existing copy with version %s, select \"Yes\". "
  172.             "If you select \"No\", you will be asked to once again "
  173.             "select the location where you want to install the "
  174.             "programme. Select another destination if you do not "
  175.             "want to overwrite your existing copy."))
  176.  
  177. ;=============================================================================
  178. ; Dutch strings
  179. ;
  180. (if (= @language "nederlands")
  181.   (
  182.     (set #ArexxScripts    "ARexx scripts")
  183.     (set #OnLineHelp    "On-line help")
  184.     (set #Example    "Voorbeeld databank")
  185.     (set #CatFiles    "Ondersteunende taal bestanden")
  186.     (set #ReadmeFiles    "Documentatie bestanden")
  187.  
  188.     (set #copyingscion    "Copiëer Het Scion archief naar RAM:...")
  189.     (set #copyingarexx    "Copiëer het ARexx archief naar RAM:...")
  190.     (set #copy_err1    "Er is een fout opgetreden bij het copiëren van %s")
  191.     (set #err_msg (cat    "\n\n"
  192.             "Druk op Doorgaan om de installatie af te beëindigen.\n"))
  193.     (set #install_msg (cat "\n\nScion Genealogist installatie script.\n\n"
  194.             "Dit script installeert Scion Genealogist\n"
  195.             (" Versie %s op uw Amiga, " VersionNum)
  196.             "samen met bijbehorende ondersteunende bestanden.\n\n"
  197.             "Scion Genealogist © 1993-1995 Robbie Akins\n"
  198.             "Alle rechten gereserveerd."))
  199.  
  200.     (set #dirselect    "Kies aub. de lade waar u %s wilt installeren.")
  201.     (set #prevselect (cat "Kies aub. de plaats waar %s zich momenteel bevindt "
  202.             "zodat %s op de juiste plaats geïnstalleerd kan worden."))
  203.     (set #setDirPathHelp (cat "In dit deel van de installatie wordt u gevraagd waar u "
  204.             "%s wilt plaatsen.\n\nAls u al een versie van %s bezit, dan "
  205.             "kunt u de lade selecteren waarin %s zich momenteel "
  206.             "bevindt. Als u een andere plaats kiest, dan zullen de "
  207.             "nieuw te installeren modules op een andere plaats "
  208.             "terecht komen dan de huidige (bestaande) modules.\n"))
  209.  
  210.     (set #setPrevLocHelp (cat "In dit deel van de installatie wordt u gevraagd waar u "
  211.             "%s wilt plaatsen.\n\nAls u al een versie van %s bezit "
  212.             "kunt u de lade selecteren waarin %s zich momenteel "
  213.             "bevindt. Als u een andere plaats kiest, dan zal de "
  214.             "%s niet op de juiste plaats geïnstalleerd worden en "
  215.             "zal zodoende niet beschikbaar zijn.\n\nU KUNT %s "
  216.             "installeren voor %s, maar u moet de lade kiezen "
  217.             "waarin u %s uiteindelijk wilt installeren.\n"))
  218.     (set #setPrevLocHelp (#setPrevLocHelp #OnLineHelp ProgramName ProgramName #OnLineHelp #OnLineHelp ProgramName ProgramName))
  219.     (set #pathhelpextra (cat "\n"
  220.             "OPM.: Als u het Installer programma gebruikt om "
  221.             "een nieuwe lade aan te maken (met \"Maak nieuwe lade...\"), "
  222.             "dan is het aan te raden om GEEN spaties in de "
  223.             "naam van de lade te zetten.  Door dit advies te "
  224.             "volgen voorkomt u problemen bij de toegang tot "
  225.             "de lade, met name vanuit ARexx scripts.\n"
  226.             "\n"
  227.             @askdir-help))
  228.     (set #installing "Installeren... ")
  229.  
  230.     (set #lha_error1     "Fout bij uitpakken van %s uit %s naar de %s lade.\n")
  231.     (set #lha_error2 (cat "\n"
  232.             "Verzeker u ervan dat de lade die u als bestemming "
  233.             "heeft aangegeven daadwerkelijk bestaat en dat er "
  234.             "genoeg ruimte vrij is om de bestanden te copiëren. "
  235.             "Verzeker u er ook van dat, als het te copiëren "
  236.             "bestand al aanwezig is, het bestaande bestand niet "
  237.             "beveiligd is tegen overschrijven of wissen."))
  238.     (set #ver_err1    ("\Voor %s versie %s is tenminste AmigaOS 2.04 vereist." ProgramName VersionNum))
  239.     (set #installoptions (cat ("Kies de delen van het %s pakket die u nu " ProgramName)
  240.             "wenst te installeren."))
  241.     (set #installopthelp (cat "In dit deel van de installatie procedure kunt u de delen "
  242.             "van de distributie selecteren die u op dit moment wilt installeren.\n"
  243.             "\n"
  244.             @askoptions-help))
  245.     (set #languageoptions (cat "Kies de talen die u nu wenst te installeren.\n\n"
  246.             "OPM.: Niet alle talen worden volledig ondersteund."))
  247.     (set #languageopthelp (cat "In dit deel van de installatie procedure kunt u de talen "
  248.             "selecteren die u op dit moment wilt installeren.\n\n"
  249.             "Niet alle talen worden volledig ondersteund, dus zelfs als u een "
  250.             "bepaalde taal kiest, kan het zijn dat on-line help en/of "
  251.             "'localisatie' nog niet daadwerkelijk beschikbaar is. "
  252.             "Als u bereid bent te helpen met de vertaling, neem dan "
  253.             "alstublieft contact op met de auteur.\n\n"
  254.             @askoptions-help))
  255.     (set #libcopy     "Kopiëer %s naar %s")
  256.     (set #copyLibFileHelp (cat "Als u al een versie van deze bibliotheek in de "
  257.             "geselecteerde lade heeft, dan zal de bibliotheek uit "
  258.             "de distributie vergeleken worden met diegene die u al "
  259.             "heeft. Als de huidige versie van uw bibliotheek ouder "
  260.             "is, zal de nieuwere versie worden geïnstalleerd.\n\n"
  261.             @copylib-help))
  262.     (set #makedir     "De lade die u heeft gekozen bestaat niet en zal worden aangemaakt.")
  263.     (set #nolocale    "\n\n\nUw computer ondersteunt het gebruik van andere talen dan Engels niet, en daarom zal alleen de Engelse versie van de distributie geïnstalleerd worden.")
  264.     (set #fontprompt (cat "\n\nWilt u het \"sciongen.font\" lettertype installeren?\n\n Het is "
  265.             "niet vereist, maar daarmee ziet de user-interface er wel beter uit!"))
  266.     (set #fonthelp1 (cat "\"sciongen.font\" is niet vereist voor %s om te functioneren, "
  267.             "maar als u besluit om het wel te installeren, zal de "
  268.             "user-interface er een stuk beter uit zien."))
  269.     (set #fonthelp    (#fonthelp1 programname))
  270.     (set #oldscionprompt (cat "\n\nOp dit moment heeft u versie %ld.%s van %s geïnstalleerd "
  271.                         "in de door u gekozen lade. Wilt u die vervangen door "
  272.             "versie %s?"))
  273.     (set #oldscionhelp (cat "In de lade die u heeft gekozen bevindt zich al "
  274.                         "een versie van %s. Als u deze bestaande versie wenst "
  275.             "te vervangen door versie %s, kies dan \"Ja\". "
  276.             "Als u \"Nee\" kiest, zult u opnieuw gevraagd worden "
  277.             "om de plaats te kiezen waar u het programma wenst "
  278.             "te installeren. Kies een andere bestemming als u de "
  279.             "bestaande versie niet wilt overschrijven."))
  280.  
  281.   )
  282. )
  283. ;
  284. ;=============================================================================
  285. ; German strings
  286. ;
  287. (if (= @language "deutsch")
  288.  (
  289.   (set #ArexxScripts    "ARexx Skripts")
  290.   (set #OnLineHelp    "On-line Hilfe")
  291.   (set #Example        "Beispiels Datenbanken")
  292.   (set #CatFiles    "Sprachen-unterstützende Dateien")
  293.   (set #ReadmeFiles    "Dokumentations Dateien")
  294.  
  295.   (set #copyingscion    "Kopiere Scion archiv ins RAM:...")
  296.   (set #copyingarexx    "Kopiere ARexx archiv ins RAM:...")
  297.   (set #copy_err1    "Ein Fehler ist aufgetreten beim kopieren von %s")
  298.   (set #err_msg (cat    "\n\n"
  299.             "Drücke den Weiter Knopf um die Installation zu beenden.\n"))
  300.   (set #install_msg (cat "\n\nScion Genealogist Installations Skript.\n\n"
  301.             "Dieses Skript installiert Scion Genealogist\n"
  302.             (" Version %s auf Ihren Amiga, " VersionNum)
  303.             "zusammen mit den dazugehörenden unterstützenden Dateien.\n\n"
  304.             "Scion Genealogist © 1993-1995 Robbie Akins\n"
  305.             "Alle Rechte vorbehalten."))
  306.   (set #dirselect    "Bitte wählen Sie die Schublade wohin Sie %s installieren möchten.")
  307.   (set #prevselect (cat    "Bitte wählen Sie den Ort an den sich %s jetzt befindet "
  308.             "damit %s am korrekten Ort installiert werden kann."))
  309.   (set #setDirPathHelp (cat "Dieser Teil der Installation fragt Ihnen wohin Sie %s "
  310.             "installieren möchten.\n\nBesitzer einer älteren Version von %s "
  311.             "sollten hier die Schublade wählen in dem sich die derzeitige "
  312.             "Version von %s befindet. Falls Sie einen anderen Ort wählen, werden die "
  313.             "derzeitige existierende Module an einem anderen Ort sein als "
  314.             "die neu zu installieren Module.\n"))
  315.  
  316.   (set #setPrevLocHelp (cat "Hier werden Sie gefragt wohin die %s installiert "
  317.             "werden soll.\n\n"
  318.             "Besitzer einer älteren Version von %s sollten hier "
  319.             "die Schublade wählen in der sich die derzeitige Programmversion "
  320.             "befindet. Falls Sie einen anderen Ort wählen, wird "
  321.             "die %s nicht verfügbar sein.\n\n"
  322.             "Sie KÖNNEN die %s installieren bevor %s, "
  323.             "aber dann müssen Sie die Schublade wählen in die Sie später "
  324.             "auch %s installieren werden."))
  325.   (set #setPrevLocHelp (#setPrevLocHelp #OnLineHelp ProgramName #OnLineHelp #OnLineHelp ProgramName ProgramName))
  326.  
  327.   (set #pathhelpextra (cat "\n"
  328.             "BEMERKUNG: Falls Sie die Funktion des Installer Programms "
  329.             "benutzen um eine neue Schublade anzulegen (\"Neue Schublade anlegen...\"), "
  330.             "wird es strengstens empfohlen KEINE Leerzeichen im "
  331.             "Namen der Schublade einzugeben. Wenn Sie diesen Rat folgen "
  332.             "vermeiden Sie Probleme beim zugreifen auf die Schublade, "
  333.             "vor allem aus ARexx Skripts.\n"
  334.             "\n"
  335.             @askdir-help))
  336.   (set #installing "Installiere... ")
  337.   (set #lha_error1     "Fehler beim Entpacken von %s aus %s in die %s Schublade.\n")
  338.   (set #lha_error2 (cat    "\n"
  339.             "Bitte vergewissern Sie sich davon daß die Schublade die Sie "
  340.             "als Ziel aufgegeben haben wirklich existiert und das genügend Platz "
  341.             "frei ist für die Dateien. Beachten Sie auch daß, wenn die "
  342.             "zu kopieren Datei schon existiert, die schon vorhandene Datei "
  343.             "nicht geschützt sein darf gegen schreiben oder entfernen."))
  344.   (set #ver_err1    ("\%s Version %s benötigt mindestens AmigaOS 2.04 zum Laufen." ProgramName VersionNum))
  345.   (set #installoptions (cat ("Wählen Sie bitte die Teile des %s Pakkets die Sie jetzt " ProgramName)
  346.             "installieren möchten."))
  347.   (set #installopthelp (cat "In diesem Teil der Installation können Sie wählen welche "
  348.             "Teile der Distribution Sie in diesem Moment installieren möchten.\n"
  349.             "\n"
  350.             @askoptions-help))
  351.   (set #languageoptions (cat "Wählen Sie die Sprachen die Sie jetzt installieren möchten.\n\n"
  352.             "BEMERKUNG: Nicht alle Sprachen werden voll unterstützt."))
  353.   (set #languageopthelp (cat "In diesem Teil der Installation können Sie die Sprachen "
  354.             "wählen die Sie in diesem Moment installieren möchten.\n\n"
  355.             "Nicht alle Sprachen werden voll unterstützt, also sogar wenn "
  356.             "sie eine Sprache wählen, kann es sein das On-line Hilfe und/oder "
  357.             "'Localisation' noch nicht tatsächlich vorhanden sind. "
  358.             "Wenn Sie helfen möchten bei einer Übersetzung, nehmen Sie "
  359.             "bitte Kontakt auf mit dem Autor.\n\n"
  360.             @askoptions-help))
  361.   (set #libcopy     "Kopiere %s nach %s")
  362.   (set #copyLibFileHelp (cat "Wenn schon eine Kopie dieser Bibliothek in der "
  363.             "gewählten Schublade vorhanden ist, wird die Bibliothek aus "
  364.             "der Distribution verglichen werdem mit der vorhandenen "
  365.             "Version. Wenn die derzeitige Bibliothek eine ältere Version "
  366.             "ist, wird die neuere Version installiert.\n\n"
  367.             @copylib-help))
  368.   (set #makedir     "Die angegebene Schublade existiert nicht und wird jetzt angelegt.")
  369.   (set #nolocale    "\n\n\nIhr Computer unterstützt keine andere Sprachen als Englisch, deshalb wird nur die englische Version der Distribution installiert werden.")
  370.   (set #fontprompt (cat    "\n\nSoll das \"sciongen.font\" installiert werden?\n\nEs ist nicht "
  371.             "unbedingt erforderlich, aber damit sieht die Benutzer Oberfläche besser aus!"))
  372.   (set #fonthelp1 (cat    "Das Font \"sciongen.font\" ist nicht unbedingt erforderlich für %s "
  373.             "zum funktionieren, allerdings wird die Benutzer Oberfläche "
  374.             "viel besser aussehen wenn sie sich entschließen das "
  375.             "Font zu installieren."))
  376.   (set #fonthelp    (#fonthelp1 programname))
  377.   (set #oldscionprompt (cat "\n\nSie haben momentan Version %ld.%s von %s installiert "
  378.                         "in der von Ihnen gewählten Schublade. Wollen Sie diese Version "
  379.             "ersetzen durch Version %s?"))
  380.   (set #oldscionhelp (cat "In der von Ihnen gewählte Schublade ist schon eine Version "
  381.                         "von %s vorhanden. Falls Sie möchten daß die existierende Version "
  382.             "überschrieben wird mit Version %s, wählen Sie \"Ja\". "
  383.             "Wenn Sie \"Nein\" wählen, werden Sie wieder gefragt "
  384.             "werden die Ziel-Schublade zu wählen wohin Sie das Programm "
  385.             "installieren möchten. Wählen Sie ein anderes Ziel wenn Sie "
  386.             "nicht möchten das die vorhandene Version überschrieben wird."))
  387.  )
  388. )
  389. ;
  390. ;=============================================================================
  391. ; Norwegian strings
  392. ;
  393. (if (= @language "norsk")
  394. ;(
  395. ; Include the Norwegian versions of above strings in here.
  396. ;)
  397. )
  398. ;
  399. ;=============================================================================
  400. ; Italian strings
  401. ;
  402. (if (= @language "italiano")
  403. ;(
  404. ; Include the Italian versions of above strings in here.
  405. ;)
  406. )
  407. ;
  408. ;=============================================================================
  409. ; Swedish strings
  410. ;
  411. (if (= @language "svenska")
  412. ;(
  413. ; Include the Swedish versions of above strings in here.
  414. ;)
  415. )
  416. ;
  417. ;=============================================================================
  418. ; Finnish strings
  419. ;
  420. (if (= @language "suomi")
  421. ;(
  422. ; Include the Finnish versions of above strings in here.
  423. ;)
  424. )
  425. ;
  426. ;=============================================================================
  427. ; French strings
  428. ;
  429. (if (= @language "français")
  430. ;(
  431. ; Include the French versions of above strings in here.
  432. ;)
  433. )
  434. ;
  435. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  436. ;;;
  437. ;;; Some useful procedures
  438. ;;;
  439. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  440. ;
  441. ;
  442. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  443. ;;;
  444. ;;; Ask the user for a directory name.
  445. ;;;
  446. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  447. ;
  448. ; INPUTS:
  449. ;    SDP_ModuleName    ; Name of 'module' to install
  450. ;    SDP_DefDir        ; Default directory to start with
  451. ;
  452. ;    #setDirPathHelp   ; Any help text. Note: This is set globally at the start.
  453. ;
  454. ; OUTPUTS:
  455. ;    SDP_DirPath       ; The selected directory
  456. ;
  457. (procedure setDirPath
  458.     (
  459.     (set moveon    FALSE)
  460.     (while (NOT moveon)
  461.         (
  462.         (set SDP_DirPath
  463.             (askdir    (prompt    (#dirselect SDP_ModuleName))
  464.                 (help (#setDirPathHelp SDP_ModuleName ProgramBaseName SDP_ModuleName) #pathhelpextra)
  465.                 (default SDP_DefDir)
  466.                 (newpath)
  467.             )
  468.         )
  469.  
  470.         ; Don't try and create directory in pretend mode (gets stuck in a loop!)
  471.         (if (<> @pretend 1)
  472.             (
  473.                 (if (= (exists SDP_DirPath) 0)
  474.                   (
  475.                     (makedir SDP_DirPath
  476.                         (prompt #makedir)
  477.                         (help @makedir-help)
  478.                         (confirm)
  479.                         (infos)
  480.                     )
  481.                     (if (= (exists SDP_DirPath) 2)
  482.                         (set moveon    TRUE)
  483.                     )
  484.                   )
  485.                   (set moveon    TRUE)
  486.                 )
  487.             )(set moveon TRUE))
  488.         )
  489.     )
  490.     )
  491. )
  492.  
  493. ;
  494. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  495. ;;;
  496. ;;; Ask user where Scion was previously installed so help can be installed correctly
  497. ;;;
  498. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  499. ;
  500. ; INPUTS:
  501. ;    SPL_ModuleName    ; Name of 'module' to install (#OnLineHelp)
  502. ;    SPL_DefDir        ; Default directory to start with
  503. ;
  504. ;    #setPrevLocHelp   ; Any help text. Note: This is set globally at the start.
  505. ;
  506. ; OUTPUTS:
  507. ;    SPL_DirPath       ; The selected directory
  508. ;
  509. (procedure setPrevLoc
  510.     (
  511.     (set SPL_DirPath
  512.         (askdir    (prompt    (#prevselect ProgramName SPL_ModuleName))
  513.             (help (#setPrevLocHelp))
  514.             (default SPL_DefDir))
  515.         )
  516.     )
  517. )
  518.  
  519. ;
  520. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  521. ;;;
  522. ;;; Extract a file from an 'lha' archive file using 'lx'
  523. ;;;
  524. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  525. ;
  526. ; INPUTS:
  527. ;    xarcFileName    ; Name of archive (eg "fred.lha")
  528. ;    xsrcFileName    ; Name of file within archive (including "internal" dir structure)
  529. ;    xdestDirName    ; "Base" location to copy file to (will recreate "internal"
  530. ;                      dir structure of archive)
  531. ;    xconfirmCopy    ; 0 = confirm extraction okay, else don't confirm
  532. ;
  533. (procedure extractLhaFile2Dir
  534.     (
  535.     (set lha_rc (run ("lx -qf x %s \"%s\" \"%s\"" xarcFileName xsrcFileName xdestDirName)))
  536.     (if (<> lha_rc 0)
  537.         (message
  538.             (#lha_error1 xsrcFileName xarcFileName xdestDirName) #lha_error2
  539.         )
  540.     )
  541.     (if (= 0 xconfirmCopy)
  542.         (
  543.         (if (= 0 (exists (tackon xdestDirName xsrcFileName)))
  544.             (abort (#copy_err1 xsrcFileName) #err_msg)
  545.         )
  546.     )
  547.     )
  548.     )
  549. )
  550.  
  551. ;
  552. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  553. ;;;
  554. ;;; Fix up "lha" destinations which must end with ":" or "/"
  555. ;;;
  556. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  557. ;
  558. ; INPUTS:
  559. ;    xdestDirName    ; "Base" location to fix up
  560. ;
  561. (procedure fixLhaDest
  562. (set len (strlen xdestDirName))
  563. (if (<> (substr xdestDirName (- len 1) 1) ":")
  564.     (set xdestDirName (cat xdestDirName "/")))
  565. )
  566.  
  567. ;
  568. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  569. ;;;
  570. ;;; Ask the user which parts of the package should be installed.
  571. ;;;
  572. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  573. ;
  574. (procedure setPkgOpts
  575.     (
  576.     (set PkgOpts
  577.         (askoptions
  578.             (prompt #installoptions)
  579.             (help #installopthelp
  580.             )
  581.             (choices
  582.                 ; bit position 0 -- install Scion ( AND ReadMe files)
  583.                 ;
  584.                 ("%s" ProgramName)
  585.  
  586.                 ; bit position 1 -- install ScionPrefs
  587.                 ;
  588.                 ("%s" PrefsName)
  589.  
  590.                 ; bit position 2 -- install ARexx scripts
  591.                 ;
  592.                 ("%s" #ArexxScripts)
  593.  
  594.                 ; bit position 3 -- install Guides
  595.                 ;
  596.                 ("%s" #OnLineHelp)
  597.  
  598.                 ; bit position 4 -- install Example database
  599.                 ;
  600.                 ("%s" #Example)
  601.  
  602.             )
  603.         )
  604.     )
  605.     )
  606. )
  607.  
  608. ;
  609. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  610. ;;;
  611. ;;; Ask the user which languages should be installed.
  612. ;;;
  613. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  614. ;
  615. (procedure setLanguages
  616.     (
  617.     (set LanguageOpts
  618.         (askoptions
  619.             (prompt #languageoptions)
  620.             (help #languageopthelp)
  621.  
  622.             (choices
  623.                 ; bit position 0 -- install English
  624.                 ;
  625.                 "English"
  626.  
  627.                 ; bit position 1 -- install Dutch
  628.                 ;
  629.                 "Nederlands"
  630.  
  631.                 ; bit position 2 -- install German
  632.                 ;
  633.                 "Deutsch"
  634.  
  635.                 ; bit position 3 -- install Norwegian
  636.                 ;
  637.                 "Norsk"
  638.  
  639.                 ; bit position 4 -- install French
  640.                 ;
  641.                 "Français"
  642.  
  643.                 ; bit position 5 -- install Italian
  644.                 ;
  645.                 "Italiano"
  646.  
  647.                 ; bit position 6 -- install Swedish
  648.                 ;
  649.                 "Svenska"
  650.  
  651.                 ; bit position 7 -- install Finnish
  652.                 ;
  653.                 "Suomi"
  654.  
  655.         )
  656.         )
  657.     )
  658.     )
  659. )
  660.  
  661. ;
  662. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  663. ;;;
  664. ;;; Copy the specific library file from T: to the CLF_LibPath directory.
  665. ;;;
  666. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  667. ;
  668. ; INPUTS:
  669. ;    CLF_LibFileName     ; Library name
  670. ;    CLF_LibPath         ; Location to save library
  671. ;
  672. ;    #copyLibFileHelp    ; 'Base" help for this operation
  673. ;
  674. (procedure copyLibFile
  675.     (
  676.     (if (= (exists (tackon CLF_LibPath CLF_LibFileName)) 1)
  677.         (
  678.         (protect (tackon CLF_LibPath CLF_LibFileName) "+rwed")
  679.         )
  680.     )
  681.     (if (<> @pretend 1)
  682.         (copylib
  683.             (prompt (#libcopy CLF_LibFileName CLF_LibPath))
  684.             (help    #copyLibFileHelp)
  685.             (source (cat "T:" CLF_LibFileName))
  686.             (dest CLF_LibPath)
  687.             (confirm))
  688.         )
  689.     )
  690. )
  691.  
  692. ;
  693. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  694. ;;;
  695. ;;; Get the version and revision number of file/device/library/OS/etc
  696. ;;;
  697. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  698. ;
  699. ; INPUTS: WV_Item    ; Name of device/file/library/etc. "" for OS version
  700. ;
  701. ; OUTPUTS: WV_VerNum    ; (long) version/revision number
  702. ;          WV_Ver    ; Version number
  703. ;          WV_Rev    ; Revision number
  704. ; NOTE: Both WV_Ver and WV_Rev returned as 0 if "WV_Item" does not exist
  705. ;
  706. (procedure WhatVersion
  707.     (
  708.     (if (= WV_Item "")
  709.         (set WV_VerNum (getversion))        ; For OS
  710.         (set WV_VerNum (getversion WV_Item)))    ; For other "files"
  711.     (set WV_Ver (/ WV_VerNum 65536))
  712.     (set WV_Rev (- WV_VerNum (* WV_Ver 65536)))
  713.     )
  714. )
  715.  
  716. ;
  717. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  718. ;;;
  719. ;;; Fix revision numbers because I use 'x.05' style instead of 'x.5' style
  720. ;;;
  721. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  722. ;
  723. ; INPUTS:  WV_Rev    ; Revision number
  724. ;
  725. ; OUTPUTS: FR_Rev    ; Revision # modified to give leading '0' where needed
  726. ;
  727. (procedure FixRevision
  728.     (
  729.     (if (< WV_Rev 10)
  730.         (set FR_Rev (cat "0" WV_Rev))
  731.     (set FR_Rev (cat WV_Rev))
  732.     )
  733. ))
  734.  
  735. ;
  736. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  737. ;;;
  738. ;;; See if Multiview and/or AmigaGuide exist
  739. ;;;
  740. ;;; This is less than perfect! I can't get "run" to return a command result
  741. ;;; from the "which" command when run from Workbench! Okay from a shell.
  742. ;;; I wanted to use "which"command to locate viewer, but doesn't bloody work!
  743. ;;;
  744. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  745. ;
  746. ; OUTPUT: ViewerType = 1 for MultiView (preferred)
  747. ;                    = 2 for AmigaGuide
  748. ;                    = 0 for neither
  749. ;
  750. (procedure WhichGuideViewer
  751.     (
  752.     (if (= (exists "SYS:Utilities/MultiView" (noreq)) 1)
  753.         (set ViewerType 1)
  754.         (if (= (exists "SYS:Utilities/AmigaGuide" (noreq)) 1)
  755.             (set ViewerType 2)
  756.     (set ViewerType 0)))
  757.     )
  758. )
  759.  
  760. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  761. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  762. ;;;                                                                       ;;;
  763. ;;;                START OF ACTUAL INSTALLATION PROCESS                   ;;;
  764. ;;;                                                                       ;;;
  765. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  766. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  767. ;
  768. ;
  769. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  770. ;;;
  771. ;;; Make sure we are running under a 2.04 ROM (at least)
  772. ;;;
  773. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  774. ;
  775.  
  776. (set WV_Item "")    ; Want OS version
  777. (WhatVersion)
  778. (if (< WV_Ver 37)
  779.     (abort (cat #ver_err1 #err_msg))
  780.     )
  781.  
  782. ;
  783. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  784. ;;;
  785. ;;; Display startup message and make sure t: exists
  786. ;;;
  787. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  788. ;
  789.  
  790. (message #install_msg)
  791.  
  792. (if (= (getassign "t") "")
  793.     (makeassign "t" RAM:)
  794. )
  795.  
  796. ;
  797. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  798. ;;;
  799. ;;; Do installation
  800. ;;;
  801. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  802. ;
  803.  
  804. ; Try and determine the best place to set as destination for the installation.
  805. ; NOTE: For "novice" mode, the installer uses the value of @default-dest.
  806.  
  807. (if (= (exists "Work:" (noreq)) 2)          ; Check for WORK:
  808.     (set @default-dest ("Work:%s" ProgramBaseName))
  809.     (set @default-dest ("SYS:%s" ProgramBaseName))
  810. )
  811.  
  812. ; NOTE: For test purposes, over-ride default location with RAM:
  813. (if (= TESTING 1)
  814.     (set @default-dest ("RAM:%s" ProgramBaseName)))
  815.  
  816. (set Scion-dest @default-dest)              ; Default location to install Scion programme
  817. (setPkgOpts)                                ; Ask for installation options
  818.  
  819. (if (= (exists "LIBS:locale.library" (noreq)) 1) ;Is there locale support?
  820.     (
  821.     (set Localised 1)                       ; Set "localisation" supported
  822.     ; Only ask for languages for Scion, ScionPrefs or On-line help
  823.     (if (OR (IN PkgOpts 0) (IN PkgOpts 1) (IN PkgOpts 3))
  824.         (setLanguages)                      ; Ask for languages to install
  825.         )
  826.     )
  827.     (message #nolocale))                    ; Give bad news about no locale
  828.  
  829. (set SDP_DefDir @default-dest)              ; Start with default location
  830.  
  831. ;
  832. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  833. ;;;
  834. ;;; Set up installation options and destinations for files
  835. ;;;
  836. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  837. ;
  838. ; bit position 0 -- install Scion & ReadMe files
  839. (set Scion_Really 0)                        ; Do NOT install Scion at the moment
  840. (if (IN PkgOpts 0)                          ; if bit position 0 (Scion option) is on
  841.     (
  842.     (while (<> Scion_Really 1)
  843.         (
  844.         (set SDP_ModuleName ProgramBaseName); First module is Scion
  845.         (setdirpath)                        ; Returns user selected location in 'SDP_DirPath'
  846.         (set @default-dest SDP_DirPath)     ; Reset default location (for 'completed' message)
  847.  
  848.         (set Scion-dest SDP_DirPath)        ; Location to install Scion programme
  849.         (set InstallScion 1)                ; 1 = install Scion
  850.     
  851.         (set readme-dest Scion-dest)        ; Default to "base" location where Scion is
  852.         (set InstallReadMe 1)               ; 1 = install ReadMe files
  853.  
  854.         (set WV_Item (tackon Scion-dest ProgramBaseName))
  855.         (if (exists WV_Item (noreq))        ; Existing Scion installed?
  856.         (
  857.             (WhatVersion)                   ; Get existing Scion version number
  858.             (FixRevision)                   ; Kludge for my revision numbering!
  859.             (set Scion_Really (askbool
  860.             (prompt (#oldscionprompt WV_Ver FR_Rev ProgramName VersionNum)
  861.         (help (#oldscionhelp ProgramName VersionNum))
  862.         (default 1))))
  863.         )
  864.         ; 'else'
  865.         (set Scion_Really 1)            ; Nothing there - really install
  866.         ))
  867.      )
  868.     ))
  869.  
  870. ; bit position 1 -- install ScionPrefs
  871. (if (IN PkgOpts 1)                          ; if bit position 1 (Scion preferences option) is on
  872.     (
  873.     (set SDP_ModuleName PrefsBaseName)      ; Next module is preferences programme
  874.     (set SDP_DefDir "SYS:Prefs")
  875.     (setdirpath)                            ; Returns user selected location in 'SDP_DirPath'
  876.  
  877.     (set prefs-dest SDP_DirPath)            ; Location to install preferences programme
  878.     (set InstallPrefs 1)                    ; 1 = install preferences
  879.     ))
  880.  
  881. ; bit position 2 -- install ARexx scripts
  882. (if (IN PkgOpts 2)                          ; if bit position 2 (ARexx scripts option) is on
  883.     (
  884.     (set SDP_ModuleName #ArexxScripts)      ; Next 'section' is ARexx scripts
  885.  
  886.     (if (<> (getassign "REXX") "")
  887.         (set SDP_DefDir "REXX:")            ; Preferred default location is REXX:
  888.         (
  889.     (if (IN PkgOpts 0)                  ; Was Scion location chosen?
  890.         (set SDP_DefDir (tackon Scion-dest "Rexx")) ; 'Root' is location of Scion
  891.         (set SDP_DefDir "S:")           ; Last chance default
  892.     )
  893.     ))
  894.  
  895.     (setdirpath)                            ; Returns user selected location in 'SDP_DirPath'
  896.  
  897.     (set arexx-dest SDP_DirPath)            ; Location to install ARexx scripts
  898.     (set InstallArexx 1)                    ; 1 = install ARexx scripts
  899.     ))
  900.  
  901. ; bit position 3 -- install Guides
  902. (if (IN PkgOpts 3)                          ; if bit position 3 (On-line help option) is on
  903.     (
  904.     (set InstallOnlineHelp 1)               ; 1 = install ".guide" files
  905.     (if (IN PkgOpts 0)                      ; Installing Scion at this time?
  906.         (
  907.         (set guide-dest Scion-dest)         ; Default to "base" location where Scion is
  908.         )
  909.     ; Not installing Scion - ask where it is
  910.     (
  911.         (set SPL_ModuleName #OnLineHelp)
  912.         (set SPL_DefDir scion-dest)
  913.         (setPrevLoc)
  914.     (set guide-dest SPL_DirPath)        ; Set guide "root" location
  915.     (set Scion-dest SPL_DirPath)        ; Reset Scion location
  916.     (set @default-dest SPL_DirPath)     ; Reset default location too!
  917.     ))
  918.     ))
  919.  
  920. ; bit position 4 -- install Example database
  921. (if (IN PkgOpts 4)                          ; if bit position 4 ("Example" option) is on
  922.     (
  923.     (if (IN PkgOpts 0)
  924.         (set example-dest Scion-dest)       ; Default to "base" location where Scion is
  925.     ; Not installing Scion at this time. Ask for location
  926.     (
  927.         (set SDP_DefDir Scion-dest)         ; Start with Scion's default location
  928.         (set SDP_ModuleName #Example)       ; Ask for Example location
  929.         (setdirpath)                        ; Returns user selected location in 'SDP_DirPath'
  930.         (set example-dest SDP_DirPath)      ; Location to install Example
  931.     ))
  932.     (set InstallExample 1)                  ; 1 = install "Example" file
  933.     ))
  934.  
  935. ;
  936. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  937. ;;;
  938. ;;; Set up "locale" options and destinations
  939. ;;;
  940. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  941. ;
  942.  
  943. (if (= Localised 1)                                 ; Is "localisation" support available?
  944.     (
  945.  
  946.     (if (<> (getassign "LOCALE") "")                ; Is there a LOCALE: assign?
  947.         (
  948.         (set scioncat-dest "LOCALE:")               ; Preferred default location is LOCALE:
  949.         (set prefscat-dest "LOCALE:")               ; Preferred default location is LOCALE:
  950.         )
  951.         (
  952.         ; "else"
  953.         ; Where should we install locales for Scion?
  954.         (if (IN PkgOpts 0)                          ; if bit position 0 (Scion option) is on
  955.             (set scioncat-dest Scion-dest)          ; Location to install Scion catalogs
  956.             )
  957.         ; Where should we install locales for ScionPrefs?
  958.         (if (IN PkgOpts 1)                          ; if bit position 1 (Scion preferences option) is on
  959.             (set prefscat-dest prefs-dest)          ; Location to install preferences catalogs
  960.             )
  961.         ))
  962.  
  963.  
  964.     ; Should we install locales for Scion?
  965.     (if (IN PkgOpts 0)                              ; if bit position 0 (Scion option) is on
  966.         (set InstallScionCats 1)                    ; 1 = install Scion catalogs
  967.         )
  968.     ; Should we install locales for ScionPrefs?
  969.     (if (IN PkgOpts 1)                              ; if bit position 1 (Scion preferences option) is on
  970.         (set InstallPrefsCats 1)                    ; 1 = install Preferences catalogs
  971.         )
  972.  
  973.     (if (IN LanguageOpts 0)                         ; if bit position 0 (English)
  974.         (set InstallEnglish 1))
  975.     (if (IN LanguageOpts 1)                         ; if bit position 1 (Dutch)
  976.         (set InstallDutch 1))
  977.     (if (IN LanguageOpts 2)                         ; if bit position 2 (German)
  978.         (set InstallGerman 1))
  979.     (if (IN LanguageOpts 3)                         ; if bit position 3 (Norwegian)
  980.         (set InstallNorwegian 1))
  981.     (if (IN LanguageOpts 4)                         ; if bit position 4 (French)
  982.         (set InstallFrench 1))
  983.     (if (IN LanguageOpts 5)                         ; if bit position 5 (Italian)
  984.         (set InstallItalian 1))
  985.     (if (IN LanguageOpts 6)                         ; if bit position 6 (Swedish)
  986.         (set InstallSwedish 1))
  987.     (if (IN LanguageOpts 7)                         ; if bit position 7 (Finnish)
  988.         (set InstallFinnish 1))
  989.     )) ;;;;; (if (= Localised 1)
  990.  
  991.  
  992. ; If on-line help is requested, always install default English .guide file
  993. (if (= InstallOnlineHelp 1)
  994.         (set InstallEnglish 1))
  995. ;
  996. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  997. ;;;
  998. ;;; Copy scion and ARexx archives to RAM: (without asking for confirmation)
  999. ;;; if archives are not already on RAM: volume
  1000. ;;;
  1001. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1002. ;
  1003.  
  1004. (if (<> (getdevice ScionArchive) "RAM") ; Are the archives already on RAM:?
  1005.     (
  1006.     (copyfiles
  1007.         (prompt "\n" #copyingscion)
  1008.         (source ScionArchive)
  1009.         (dest "RAM:"))
  1010.     (set delscionarchive 1)        ; Set RAM: based file for deletion
  1011.     (set ScionArchive (tackon "RAM:" ArchiveName))
  1012.     ))
  1013.  
  1014. (if (= InstallArexx 1)
  1015.     (
  1016.     (if (<> (getdevice ArexxArchive) "RAM")
  1017.         (
  1018.         (copyfiles
  1019.             (prompt "\n" #copyingarexx)
  1020.             (source ArexxArchive)
  1021.             (dest "RAM:"))
  1022.         (set delarexxarchive 1)        ; Set RAM: based file for deletion
  1023.     (set ArexxArchive (tackon "RAM:" ArexxArchiveName))
  1024.     ))
  1025.     ))
  1026. ;
  1027. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1028. ;;;
  1029. ;;; De-archive the appropriate files to their intended destinations
  1030. ;;;
  1031. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1032. ;
  1033. ; The following installation "flags" and locations are now set appropriately:
  1034. ; - InstallScion
  1035. ; - InstallPrefs
  1036. ; - InstallArexx
  1037. ; - InstallOnlineHelp
  1038. ; - InstallExample
  1039. ; - InstallReadMe
  1040. ; - Scion-dest             ; Location to install Scion programme
  1041. ; - prefs-dest             ; Location to install preferences programme
  1042. ; - arexx-dest             ; Location to install ARexx scripts
  1043. ; - guide-dest             ; "Base" location to install guide scripts
  1044. ; - example-dest           ; Location to install example database
  1045. ; - readme-dest            ; Location to install readme files
  1046. ;
  1047. ; NOTE: "language" flags are used for BOTH ".guide" AND ".catalog" files
  1048. ; NOTE: ALWAYS install English ".guide" if InstallOnlineHelp is set
  1049. ; - InstallEnglish
  1050. ; - InstallDutch
  1051. ; - InstallGerman
  1052. ; - InstallNorwegian
  1053. ; - InstallItalian
  1054. ; - InstallSwedish
  1055. ; - InstallFinnish
  1056. ; - InstallFrench
  1057. ; Localised             ; 1 if user's system support localisation
  1058. ;
  1059. ; - InstallScionCats
  1060. ; - InstallPrefsCats
  1061. ; - scioncat-dest         ; "Base" location to install Scion catalogs
  1062. ; - prefscat-dest         ; "Base" location to install preferences catalogs
  1063. ;
  1064.  
  1065. ; Install Scion
  1066. (if (= InstallScion 1)
  1067.     (
  1068.     (copyfiles
  1069.         (prompt "\n" ProgramName)
  1070.         (source ProgramBaseName)
  1071.         (dest scion-dest)
  1072.        (files)
  1073.     (infos))
  1074.     ))
  1075.  
  1076. ; Install Scion Preferences
  1077. (if (= InstallPrefs 1)
  1078.     (
  1079.     (set CurrentFile "ScionPrefs")
  1080.     (set MyWorkinMsg (cat #Installing CurrentFile))
  1081.     (working MyWorkinMsg)
  1082.     (set xarcFileName ScionArchive)
  1083.     (set xsrcFileName CurrentFile)
  1084.     (set xdestDirName prefs-dest)
  1085.     (fixLHADest)
  1086.     ; Don't try and de-archive files in pretend mode
  1087.     (if (<> @pretend 1)
  1088.         (
  1089.         (extractLhaFile2Dir)
  1090.         ))
  1091.  
  1092.     (set CurrentFile "ScionPrefs.info")
  1093.     (set MyWorkinMsg (cat #Installing CurrentFile))
  1094.     (working MyWorkinMsg)
  1095.     (set xsrcFileName CurrentFile)
  1096.     ; Don't try and de-archive files in pretend mode
  1097.     (if (<> @pretend 1)
  1098.         (
  1099.         (extractLhaFile2Dir)
  1100.         ))
  1101.     ))
  1102.  
  1103. ; Install on-line help as required
  1104. (if (= InstallOnlineHelp 1)
  1105.     (
  1106.     (set xconfirmCopy 1)        ; Turn off confirmation for possible omissions
  1107.     (set xsrcFileName "guides.info")    ; Main drawer icon
  1108.     (set MyWorkinMsg (cat #Installing #OnLineHelp))
  1109.     (working MyWorkinMsg)
  1110.     (set xarcFileName ScionArchive)
  1111.     (set xdestDirName guide-dest)
  1112.     (fixLHADest)
  1113.     ; Don't try and de-archive files in pretend mode
  1114.     (if (<> @pretend 1)
  1115.         (
  1116.         (extractLhaFile2Dir)
  1117.         ))
  1118.     (set n 0)
  1119.     (while (set whichlanguage (select n "English" "Nederlands" "Deutsch" "Norsk" "Italiano" "Svenska" "Français" "Suomi" ""))
  1120.         (
  1121.     (set dolanguage (select n InstallEnglish InstallDutch InstallGerman InstallNorwegian InstallItalian InstallSwedish InstallFrench InstallFinnish 0))
  1122.     (set n (+ n 1))
  1123.     ; Now dearchive appropriate ".guide" files and drawer icons (what a pain!)
  1124.         (if (= dolanguage 1)
  1125.         (
  1126.         (set xsrcFileName (cat "guides/" whichlanguage ".info"))
  1127.             ; Don't try and de-archive files in pretend mode
  1128.             (if (<> @pretend 1)
  1129.                 (
  1130.                 (extractLhaFile2Dir)
  1131.                 ))
  1132.         (set xsrcFileName (cat "guides/" whichlanguage "/Scion.guide#?"))
  1133.             ; Don't try and de-archive files in pretend mode
  1134.             (if (<> @pretend 1)
  1135.                 (
  1136.                 (extractLhaFile2Dir)
  1137.                 (WhichGuideViewer) ; What guide viewer is available?
  1138.                 (set scratch (cat "guides/" whichlanguage "/Scion.guide"))
  1139.                 (set scratch (tackon guide-dest scratch))
  1140.                 (if (= (exists scratch (noreq)) 1)
  1141.             (
  1142.             ; Set guide viewer tooltype
  1143.                     (if (= ViewerType 1)
  1144.                 (
  1145.             ;Set to multiview
  1146.             (tooltype
  1147.                 (prompt "")
  1148.                 (help "")
  1149.                 (dest scratch)
  1150.                 (setdefaulttool "MultiView"))
  1151.             )
  1152.             (if (= ViewerType 2)
  1153.                 (
  1154.                 ;Set to AmigaGuide
  1155.                 (tooltype
  1156.                     (prompt "")
  1157.                     (help "")
  1158.                     (dest scratch)
  1159.                     (setdefaulttool "AmigaGuide"))
  1160.                 )
  1161.                 (
  1162.                 ;Neither in "SYS:Utilities" - hope that "Amigaguide" is somewhere!
  1163.                 (tooltype
  1164.                     (prompt "")
  1165.                     (help "")
  1166.                     (dest scratch)
  1167.                     (setdefaulttool "Amigaguide"))
  1168.                 ))
  1169.             )))
  1170.                 ))
  1171.  
  1172.         ))
  1173.     ))
  1174.  
  1175.     ; If installing Scion, install amigaguide.library as well
  1176.     (set xsrcFileName "amigaguide.library")
  1177.     (set MyWorkinMsg (cat #Installing "amigaguide.library in T:"))
  1178.     (working MyWorkinMsg)
  1179.     (set xarcFileName ScionArchive)
  1180.     (set xdestDirName "T:")
  1181.     ; Don't try and de-archive files in pretend mode
  1182.     (if (<> @pretend 1)
  1183.         (
  1184.         (extractLhaFile2Dir)
  1185.         ))
  1186.     (set CLF_LibFileName "amigaguide.library")
  1187.     (set CLF_LibPath "LIBS:")
  1188.     (copyLibFile)
  1189.     (delete (tackon xdestDirName CLF_LibFileName))
  1190.     ))
  1191. (set xconfirmCopy    0)        ; Turn confirmation back on
  1192.  
  1193. ; Install foreign language catalogs as required
  1194. ; Firstly for Scion
  1195. (if (= InstallScionCats 1)
  1196.     (
  1197.     (set xconfirmCopy 1)        ; Turn off confirmation for possible omissions
  1198.     (set MyWorkinMsg (cat #Installing #CatFiles))
  1199.     (working MyWorkinMsg)
  1200.     (set xarcFileName ScionArchive)
  1201.     (set xdestDirName scioncat-dest)
  1202.     (fixLHADest)
  1203.     (set n 0)
  1204.     (while (set whichlanguage (select n "English" "Nederlands" "Deutsch" "Norsk" "Italiano" "Svenska" "Français" "Suomi" ""))
  1205.         (
  1206.     (set dolanguage (select n InstallEnglish InstallDutch InstallGerman InstallNorwegian InstallItalian InstallSwedish InstallFrench InstallFinnish 0))
  1207.     (set n (+ n 1))
  1208.     ; Now dearchive appropriate ".catalog" files
  1209.         (if (= dolanguage 1)
  1210.         (
  1211.         (set xsrcFileName (cat "catalogs/" whichlanguage "/scion.catalog"))
  1212.             ; Don't try and de-archive files in pretend mode
  1213.             (if (<> @pretend 1)
  1214.                 (
  1215.                 (extractLhaFile2Dir)
  1216.                 ))
  1217.         ))
  1218.     ))
  1219.     ))
  1220. ; Secondly for ScionPrefs
  1221. (if (= InstallPrefsCats 1)
  1222.     (
  1223.     (set xconfirmCopy 1)        ; Turn off confirmation for possible omissions
  1224.     (set MyWorkinMsg (cat #Installing #CatFiles))
  1225.     (working MyWorkinMsg)
  1226.     (set xarcFileName ScionArchive)
  1227.     (set xdestDirName prefscat-dest)
  1228.     (fixLHADest)
  1229.     (set n 0)
  1230.     (while (set whichlanguage (select n "English" "Nederlands" "Deutsch" "Norsk" "Italiano" "Svenska" "Français" "Suomi" ""))
  1231.         (
  1232.     (set dolanguage (select n InstallEnglish InstallDutch InstallGerman InstallNorwegian InstallItalian InstallSwedish InstallFrench InstallFinnish 0))
  1233.     (set n (+ n 1))
  1234.     ; Now dearchive appropriate ".catalog" files
  1235.         (if (= dolanguage 1)
  1236.         (
  1237.         (set xsrcFileName (cat "catalogs/" whichlanguage "/scionprefs.catalog"))
  1238.             ; Don't try and de-archive files in pretend mode
  1239.             (if (<> @pretend 1)
  1240.                 (
  1241.                 (extractLhaFile2Dir)
  1242.                 ))
  1243.         ))
  1244.     ))
  1245.     ))
  1246. (set xconfirmCopy    0)        ; Turn confirmation back on
  1247.  
  1248. ; Install sciongen.font if either Scion or ScionPrefs is being installed
  1249. (if (OR (= InstallScion 1) (= InstallPrefs 1))
  1250.     (
  1251.     (set result (askbool
  1252.         (prompt #fontprompt)
  1253.     (help #fonthelp)
  1254.     (default 1))
  1255.     )
  1256.     (if (= result 1)
  1257.         (
  1258.         (set xconfirmCopy 1)        ; Turn off confrimation for multiple files
  1259.         (set CurrentFile "sciongen#?")
  1260.         (set MyWorkinMsg (cat #Installing "sciongen font"))
  1261.         (working MyWorkinMsg)
  1262.         (set xarcFileName ScionArchive)
  1263.         (set xsrcFileName CurrentFile)
  1264.         (set xdestDirName "FONTS:")
  1265.         ; Don't try and de-archive files in pretend mode
  1266.         (if (<> @pretend 1)
  1267.             (
  1268.             (extractLhaFile2Dir)
  1269.             ))
  1270.         ))
  1271.     ))
  1272. (set xconfirmCopy    0)        ; Turn confirmation back on
  1273.  
  1274. ; Install Example database
  1275. (if (= InstallExample 1)
  1276.     (
  1277.     (set CurrentFile "Example")
  1278.     (set MyWorkinMsg (cat #Installing CurrentFile))
  1279.     (working MyWorkinMsg)
  1280.     (set xarcFileName ScionArchive)
  1281.     (set xsrcFileName CurrentFile)
  1282.     (set xdestDirName example-dest)
  1283.     (fixLHADest)
  1284.     ; Don't try and de-archive files in pretend mode
  1285.     (if (<> @pretend 1)
  1286.         (
  1287.         (extractLhaFile2Dir)
  1288.         ))
  1289.  
  1290.     (set CurrentFile "Example.info")
  1291.     (set MyWorkinMsg (cat #Installing CurrentFile))
  1292.     (working MyWorkinMsg)
  1293.     (set xsrcFileName CurrentFile)
  1294.     ; Don't try and de-archive files in pretend mode
  1295.     (if (<> @pretend 1)
  1296.         (
  1297.         (extractLhaFile2Dir)
  1298.         ))
  1299.     ))
  1300.  
  1301. ; Install ARexx
  1302. (if (= InstallArexx 1)
  1303.     (
  1304.     (set CurrentFile "#?")
  1305.     (set MyWorkinMsg (cat #Installing #ArexxScripts))
  1306.     (working MyWorkinMsg)
  1307.     (set xarcFileName ArexxArchive)
  1308.     (set xsrcFileName CurrentFile)
  1309.     (set xdestDirName arexx-dest)
  1310.     (fixLHADest)
  1311.     (set xconfirmCopy 1)        ; Turn off confirmation for multiple files
  1312.     ; Don't try and de-archive files in pretend mode
  1313.     (if (<> @pretend 1)
  1314.         (
  1315.         (extractLhaFile2Dir)
  1316.         ))
  1317.  
  1318.     ))
  1319.  
  1320. (set xconfirmCopy    0)        ; Turn confirmation back on
  1321.  
  1322. ; Lastly any "readme" files (and icons)
  1323. (if (= InstallReadMe 1)
  1324.     (
  1325.     (set n 0)
  1326.     (while (<> (set dolanguage (select n InstallEnglish InstallDutch InstallGerman InstallNorwegian InstallItalian InstallSwedish InstallFrench InstallFinnish 99)) 99)
  1327.         (
  1328.     (set readme_name (select n "ReadMe" "LeesMij" "LiesMich" "LesMeg" "Leggimi" "LäsMig" "Lisez-moi" "LueMinut" ""))
  1329.     (set n (+ n 1))
  1330.     ; Now copy appropriate readme file(s)
  1331.         (if (AND (= dolanguage 1) (= (exists readme_name (noreq)) 1))
  1332.         (
  1333.             (copyfiles
  1334.         ((optional "nofail" ))    ; This doesn't seem to work properly!?
  1335.                 (prompt "\n" #ReadmeFiles)
  1336.                 (source readme_name)
  1337.                 (dest readme-dest)
  1338.                (files)
  1339.             (infos))
  1340.         ))
  1341.     ))
  1342.     ))
  1343.  
  1344. ;
  1345. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1346. ;;;
  1347. ;;; Delete files no longer required from RAM: (if they've been copied there)
  1348. ;;;
  1349. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1350. ;
  1351.  
  1352. (if (= delscionarchive 1)
  1353.     (delete ScionArchive))
  1354. (if (= delarexxarchive 1)
  1355.     (delete ArexxArchive))
  1356. (exit)
  1357.  
  1358. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1359.  
  1360.